home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / lollipop / lollipop.hqx / Lollipop v0.93 / lists.tex < prev    next >
Text File  |  1992-11-10  |  10KB  |  337 lines
  1. % Lists.tex copyright 1992 Victor Eijkhout
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. %%%%%%%%%%%%%%% L I S T S 
  4.  
  5.  
  6. \@GenericConstruct{List}
  7.  
  8. \newif\if@initem \@initemyes \newif\if@alitem
  9. \newbox\@labelbox 
  10.  
  11. \def\item{\Emessage{Item command outside list}}
  12.  
  13. % Breakpoints around a list
  14. %
  15. % first redefine generic defaults:
  16. % try not to break before, maybe not after,
  17. %
  18. \add@List@default{\def\@beforepenalty{\penalty1000 }}
  19. \add@List@default{\def\@afterpenalty{\penalty200 }}
  20.  
  21. % between items is okay
  22. % 
  23. \add@List@default{\def\@betweenpenalty{\penalty-50 }}
  24. \@ListOption{breakbetween}{
  25.     \switch {\if\EqualString{#1}}
  26.     {no}  {\def\@betweenpenalty{\penalty\@M}}
  27.     {yes} {\def\@betweenpenalty{\CSname{\h@or@v fil}\penalty-\@M}}
  28.     {0}   {\def\@betweenpenalty{}}
  29.     {default} {\edef\cs@e{\def\nxp\@betweenpenalty{\penalty\@w@w{#1}\relax}}
  30.                \cs@e}
  31.     \endswitch
  32.     }
  33.  
  34. %% anonieme namen in gebruik
  35. % \temptokse : inspringdiepte
  36.  
  37. \add@List@default{\temptokse={}}
  38.  
  39. \noeol
  40. \def\@DefineList{
  41.     \@DefineStopCommand{\nxp\xx@label \the\item@e@coms\@gen@close}
  42.     \csarg\edef{\@name}{\@gen@open
  43.          \ifitem@list \nxp\step@counter{itemlevel}\fi
  44.          \ifenum@list \nxp\step@counter{enumlevel}
  45.             \nxp\represent@counter{item}
  46.                 {\nxp\enum@repr{\counter@@name{enumlevel}}}\fi
  47.          \ifleft@embedded@construct \previousindent\z@
  48.              \else \nxp\PushIndentLevel 
  49.                    \ifauto@indent \else \levelindent\the\temptokse \fi
  50.                    \parindent\levelindent
  51.              \fi
  52.          \nxp\@alitemno
  53.          \nxp\start@counter{item}%
  54.          \the\item@b@coms
  55.          \def\nxp\item@label{
  56.              \nxp\ifdim\wd\@labelbox>\tempdima
  57.                  \ifitem@tab \advance\tempdima20pt\relax
  58.                              {\nxp\item@label}
  59.                  \else \iflabel@flow@right 
  60.                              \ifleft@embedded@construct
  61.                              \else\hskip-\previousindent\fi
  62.                              \box\@labelbox
  63.                        \else \nxp\llap{\box\@labelbox}\fi\fi
  64.              \nxp\else \llap{\hbox to \tempdima
  65.                 {\ifleft@item\else\hfil\fi
  66.                  \box\@labelbox \ifleft@item\hfil\fi}}
  67.              \nxp\fi}%
  68.          \def\nxp\num@item
  69.             {\setbox\@labelbox=\hbox{\the\item@coms}
  70.              \tempdima\previousindent
  71.              \nxp\item@label %\nxp\Indent:no
  72.              \the\item@a@coms \nxp\xx@label}
  73.          \def\nxp\item
  74.             {\ifleft@embedded@construct
  75.              \else \nxp\if@alitem\@par%\CSname{@itembreek}%
  76.                    \nxp\hold@parskip \nxp\fi \fi
  77.              \nxp\if\nxp\TestCounter:item >0 \@betweenpenalty \nxp\fi
  78.              \CSname{@\h@or@v white}{\white@between}
  79.              \nxp\@initemno \nxp\@alitemyes \nxp\noindent
  80.              \nxp\step@counter{item}\relax 
  81.              \iflabel@defined\else\nxp\define@reference{item}\fi
  82.              \CSname{\@name @item}}
  83.          }
  84.     \csarg\edef{\@name @item}{
  85.          \iflist@has@description \nxp\desc@item
  86.          \else \nxp\num@item\fi}
  87.     \@Labelize{\@name @item}
  88.     }
  89. \normaleol
  90.  
  91. % Inside a list Foo \item is defined as
  92. %
  93. % \item = all sorts of skips and switches
  94. %         step item counter, define reference
  95. %         \Foo@item
  96. %
  97. % \Foo@item[opt.lab.] = \desc@item or \num@item
  98. %
  99. % \desc@item =
  100. % { \aftergroup\num@item \@description}
  101. %
  102. % \num@item = \item@label \item@a@coms \xx@label
  103. %
  104.  
  105. % Item
  106. % start with start/left/right
  107. % indicating alignment, start = left
  108. %
  109. \newif\ifleft@item \newif\ifitem@tab
  110. \add@List@default{\left@itemyes \item@tabno}
  111. \newtoks\item@coms % content of the item label
  112. \newtoks\item@b@coms % start of the list?
  113. \newtoks\item@a@coms % immediately after the item
  114. \newtoks\item@e@coms % after the whole list
  115. \add@List@default{\item@coms{}\item@b@coms{}\item@a@coms{}
  116.     \item@e@coms{}\def\@current@options@list{item@b@coms}}
  117. \@ListOption{item}{
  118.     \switch {\if\EqualString{#1}}
  119.     {stop} {\@add@toks{\egroup}\e@group
  120.          \def\@current@options@list{item@a@coms}}
  121.     {tabstop} {\item@tabyes
  122.              \@add@toks{\egroup}\e@group
  123.              \def\@current@options@list{item@a@coms}}
  124.     {left} {\global\left@itemyes
  125.              \b@group\def\@current@options@list{item@coms}%
  126.              \@add@toks{\bgroup}}
  127.     {start}{\global\left@itemyes
  128.              \b@group\def\@current@options@list{item@coms}%
  129.              \@add@toks{\bgroup}}
  130.     {right}{\global\left@itemno
  131.              \b@group\def\@current@options@list{item@coms}%
  132.              \@add@toks{\bgroup}}
  133.     {default} {\Emessage{Unknown option #1 for List, item}}
  134.     \endswitch}
  135.  
  136. % Label overflow
  137. %
  138. \newif\iflabel@flow@right
  139. \add@List@default{\label@flow@rightyes}
  140. \@ListOption{labeloverflow}{
  141.     \if\EqualString{#1}{left}\label@flow@rightno
  142.     \else\label@flow@rightyes\fi}
  143.  
  144. % Description
  145. % the line after \item gets picked up,
  146. % and becomes available as `description'
  147. %
  148. \newif\iflist@has@description
  149. \add@List@default{\list@has@descriptionno}
  150. \@ListOption{description}{
  151.     \global\list@has@descriptionyes \@add@toks{\description@text}}
  152. {\noeol
  153.  \othercr
  154. \gdef\@description{\bgroup\othercr \@@description}
  155. \gdef\@@description#1^^M
  156.     {\gdef\description@text{#1}%
  157.     \egroup % balance the \bgroup in \@description
  158.             % which kept the \othercr local
  159.     \egroup % balance the \bgroup in \desc@item
  160.             % which enabled the \aftergroup\num@item
  161.     }
  162. }
  163. \def\desc@item{\bgroup    
  164.     \aftergroup\num@item
  165.     \@description}
  166.  
  167. % White between items
  168. %
  169. \add@List@default{\def\white@between{0pt}}
  170. \@ListOption{whitebetween}{\def\white@between{#1}}
  171. %    \edef\white@between{\@w@w{#1}}}
  172.  
  173. % Indentation
  174. % is automatic (default) and level dependent
  175. % or explicit
  176. %
  177. \newif\ifauto@indent
  178. \add@List@default{\auto@indentyes}
  179. \@ListOption{indentation}{
  180.     \if\EqualString{#1}{automatic}\auto@indentyes
  181.     \else\auto@indentno
  182.          \edef\cs@e{\nxp\temptokse={\@w@w{#1}}}\cs@e
  183.     \fi}
  184.  
  185. % Tail of the list:
  186. % everything after the keyword 'text' is tail
  187. %
  188. \@ListOption{text}{\at@breakpointyes
  189.     \def\@current@options@list{item@e@coms}}
  190.  
  191. %%%%%%%%%%%%%%%% List Nesting Counters
  192. %
  193.  
  194. % Item sign
  195. % gives the default, level dependent marker
  196. %
  197. \new@@counter{itemlevel} \set@counter{itemlevel}\z@
  198. \newif\ifitem@list
  199. \add@List@default{\item@listno}
  200. \@ListOption{itemsign}{
  201.     \global\item@listyes
  202.     \edef\cs@e{\nxp\@add@toks{\nxp\item@sign\counter@@name{itemlevel}}}
  203.     \cs@e}
  204. \def\@item@sign#1{itemsign\romannumeral#1}
  205. \def\item@sign#1{\ifnotdefined{\@item@sign{#1}}\@@item@sign{#1}%
  206.     \else \csname \@item@sign{#1}\endcsname \fi}
  207. \def\@@item@sign#1{\ifcase#1\relax\or
  208.     $\bullet$\or $\circ$ \or --\else $\cdot$\fi}
  209. \def\SetItemSign:#1=#2{\csarg\edef{\@item@sign{#1}}%
  210.    {\cswitch \ifx#2 in:
  211.     b $\bullet$;
  212.     c $\circ$;
  213.     d $\diamond$;
  214.     m ---;
  215.     n --;
  216.     . $\cdot$;
  217.     default $\cdot$;
  218.     \endswitch}}
  219.  
  220. % Item Counter 
  221. % 
  222. % Allocate a bare bones counter
  223. \new@@counter{item}\represent@counter{item}1
  224. \newtoks\item@RL \item@RL{}
  225.  
  226. % Keep track of enumerate list level
  227. %
  228. \new@@counter{enumlevel} \set@counter{enumlevel}\z@
  229. \newif\ifenum@list
  230. \add@List@default{\enum@listno}
  231. \@ListOption{itemCounter}{
  232.     \global\enum@listyes
  233.     \@add@toks{\pad@clear\itemCounter}
  234.     }
  235. \def\@enum@repr#1{enumrepr\romannumeral#1}
  236. \def\enum@repr#1{\ifnotdefined{\@enum@repr{#1}}\@@enum@repr{#1}%
  237.     \else \csname \@enum@repr{#1}\endcsname \fi}
  238. \def\@@enum@repr#1{\ifcase#1\relax\or
  239.     1\or A\or I\or a\or i\else 1\fi}
  240. \def\SetItemCounterRepresentation:#1=#2{\csarg\edef{\@enum@repr{#1}}{#2}}
  241.  
  242. %
  243. \def\@itembreek{\if@initem\par\fi}
  244.  
  245. % Clear items for Widest.
  246. % this is rather susceptible for improvement.
  247. %
  248. \def\ClearFor:#1 
  249.    {\def\widest@pad{#1}}
  250. \def\widest@pad{\m@ne}
  251. \def\pad@clear{\ifnum\widest@pad=\m@ne\else
  252.     \tempcounta\widest@pad
  253.     \advance\tempcounta-\LogTen{\cs@counter@name{item}}\relax
  254.     \hphantom{\ifcase\tempcounta \or 9\or 99 \or 999 \or 9999 \else 99999\fi
  255.               }%
  256.     \fi}
  257.  
  258. %%%%%%%%%%%%%%%% Stripped Lists
  259. %
  260. % for use in external files
  261. %
  262.  
  263. \@GenericConstruct{ExternalItem}%stripped list
  264.  
  265. \add@ExternalItem@default{\extra@args\tw@}
  266.  
  267. \noeol
  268. \def\@DefineExternalItem{
  269.     \@DefineStopCommand{\@gen@close}
  270.     \ifx\pre@fix\@empty \Wmessage{No file for external item: \@name}\fi
  271.     \edef\cs@e{\nxp\append@to@list
  272.          {\pre@fix @local@defs}
  273.          {\nxp\ifnotdefined{\@command}
  274.                    \nxp\Wmessage{Item `\@name' not defined for `\pre@fix'}
  275.           \nxp\else\let\CSname{\@name}\CSname{\@command}
  276.           \nxp\fi}}
  277.     \cs@e
  278.     \csarg\edef{\@command}##1##2{
  279.          \def\CSname{\@name Label}{##1}
  280.          \@gen@open\def\nxp\Page{##2}
  281.          \nxp\PushIndentLevel \let\nxp\nl\relax
  282.          \the\item@b@coms
  283.          \def\nxp\item{\ifleft@embedded@construct\else\noindent\fi
  284.              \setbox\@labelbox=\hbox{\the\item@coms}
  285.              \nxp\ifdim\wd\@labelbox>\previousindent
  286.                  \iflabel@flow@right \hskip-\previousindent\box\@labelbox
  287.                  \else \nxp\llap{\box\@labelbox}\fi
  288.              \nxp\else \llap{\hbox to \previousindent
  289.                 {\ifleft@item\else\hfil\fi
  290.                  \box\@labelbox \ifleft@item\hfil\fi}}
  291.              \nxp\fi}%
  292.          \nxp\item\the\item@a@coms
  293.          \ifright@embedded@construct\else\@par\fi
  294.          \iflong@external\else\nxp\>\fi
  295.          }
  296.     }
  297. \normaleol
  298.  
  299. \add@ExternalItem@default{\@whitebefore\z@toks}
  300. \add@ExternalItem@default{\@whiteafter\z@toks}
  301. \add@ExternalItem@default{\let\Page\@space 
  302.     \csarg\let{\@name Label}\@space}
  303.  
  304. % Specify for what external file this is meant
  305. %
  306. \@ExternalItemOption{file}{\def\pre@fix{#1}}
  307.  
  308. \newif\iflong@external
  309. \add@ExternalItem@default{\long@externalno}
  310. \@ExternalItemOption{long}{
  311.     \csname long@external#1\endcsname}
  312.  
  313. % Commands before and after
  314. % option 'title' is dummy
  315. %
  316. %\@ExternalItemOption{title}{}
  317. % dangerous: better rely on automatic titelization
  318.  
  319. % Item
  320. % start with start/left/right
  321. % indicating alignment, start = left
  322. %
  323. \add@ExternalItem@default{\left@itemyes}
  324. \add@ExternalItem@default{\item@coms{}\item@b@coms{}\item@e@coms{}
  325.     \item@a@coms{}\def\@current@options@list{item@b@coms}}
  326. \let\ExternalItem@item=\List@item
  327.  
  328. % Label overflow
  329. %
  330. \add@ExternalItem@default{\label@flow@rightyes}
  331. \let\ExternalItem@labeloverflow\List@labeloverflow
  332.  
  333. \endinput
  334.  
  335.  
  336.  
  337.